



sp_helptext paGPGastoRegistroBUSx

ALTER PROCEDURE dbo.paGPGastoRegistroBUSx
@gascodGasto int
as
select
	gasfecReggasto,gascodMotivo ,gasimpGasto ,gascodMoneda,gasmrkesFacturable, gascodPersona,gasobsGasto
	,perapePaterno+' '++perapeMaterno +' ' + pernomPersona AS	NOMBRECOMPLETO
from TB_GastoRegistro 
INNER JOIN TB_Personal ON percodPersona=gascodPersona
WHERE gascodGasto=@gascodGasto








alter PROC [dbo].[paGPHoraRegistroVerificarGuardarPRC]
 @horcodPersona varchar(10)
,@horfecConsumida datetime
,@paccodProyectoActividad int
,@HorcodReghora int
AS
--declare @horcodPersona varchar(10),@horfecConsumidaI datetime,@horfecConsumidaF datetime select @horcodPersona=4,@horfecConsumidaI ='20120201',@horfecConsumidaF='20130205'

SELECT horcodReghora,horfecConsumida,horcanHoras,horhorFin,horini,actnroHoras
FROM TB_ProyectoActividad 
INNER JOIN TB_Actividad ON paccodProyecto=paccodProyecto and actcodActividad=paccodActividad
INNER JOIN TB_HoraRegistro ON horcodProyectoActividad=paccodProyectoActividad
WHERE horcodPersona = @horcodPersona and horfecConsumida = @horfecConsumida
AND hormrkEstado=1 and HorcodReghora <> @HorcodReghora
ORDER BY horfecConsumida,horini


SELECT actnroHoras
,(SELECT SUM(horcanHoras) FROM TB_HoraRegistro 
	WHERE horcodProyectoActividad= paccodProyectoActividad AND hormrkEstado=1 and HorcodReghora <> @HorcodReghora) AS CNTHORASCONSUMIDAS
FROM TB_ProyectoActividad 
INNER JOIN TB_Actividad ON paccodProyecto=paccodProyecto and actcodActividad=paccodActividad
WHERE paccodProyectoActividad = @paccodProyectoActividad








alter PROCEDURE dbo.paGPHorasRegistroINS
 @horfecRegistro	datetime
,@horfecConsumida	datetime
,@horini			datetime
,@horhorFin			datetime
,@horobsReghora		varchar(200)
,@horcodUserCrea	char(10)
,@hormrkActivCulminada	bit
,@horcodProyectoActividad	int
,@horcodPersona		varchar(10)
,@horcanHoras		numeric(5,2)
,@hormrkesFacturable bit
,@horcodCategoria	as int
AS


Declare @horcodReghora int
set @horcodReghora=(select max(horcodReghora) + 1  from TB_HoraRegistro )
set @horcodReghora=coalesce(@horcodReghora,1)

INSERT INTO TB_HoraRegistro(
horcodReghora 
,horfecRegistro  
,horfecConsumida 
,horini    
,horhorFin
,horobsReghora   
,hormrkEstado 
,horcodUserCrea 
,horfecCrea      
,hormrkActivCulminada 
,horcodProyectoActividad 
,horcodPersona 
,horcanHoras
,hormrkesFacturable
,horcodCategoria)
VALUES(
@horcodReghora 
,@horfecRegistro   
,@horfecConsumida  
,@horini     
,@horhorFin      
,@horobsReghora    
,1 
,@horcodUserCrea 
,GETDATE()
,@hormrkActivCulminada 
,@horcodProyectoActividad 
,@horcodPersona 
,@horcanHoras
,@hormrkesFacturable
,@horcodCategoria)


if @hormrkActivCulminada =1
	UPDATE TB_ProyectoActividad SET paccodSituacion=2 WHERE paccodProyectoActividad= @horcodProyectoActividad


--DECLARE @SUMHORAS numeric(8,2), @actnroHoras numeric(8,2)
--SELECT @actnroHoras=actnroHoras
--,@SUMHORAS=(SELECT SUM(horcanHoras) FROM TB_HoraRegistro 
--	WHERE horcodProyectoActividad= paccodProyectoActividad AND hormrkEstado=1 and HorcodReghora <> @HorcodReghora)
--FROM TB_ProyectoActividad 
--INNER JOIN TB_Actividad ON paccodProyecto=paccodProyecto and actcodActividad=paccodActividad
--WHERE paccodProyectoActividad = @horcodProyectoActividad
--IF @SUMHORAS>=@actnroHoras
--	UPDATE TB_ProyectoActividad SET paccodSituacion=2 WHERE paccodProyectoActividad= @horcodProyectoActividad


